home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).zip / Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).adf / GFA.Anwendung / Notenpapier.LST < prev    next >
File List  |  1992-09-14  |  4KB  |  100 lines
  1. REM  *********************************
  2. REM  * Notenpapier V1.01             *
  3. REM  * (c) 3.8.1991 by Henry König   *
  4. REM  * Bornheide 71, 2000 Hamburg 53 *
  5. REM  *********************************
  6. init
  7. programmkopf
  8. PRINT AT(7,28);"Notenpapier_V1.01. © 1991 by Henry König, Bornheide 71, 2 Hamburg 53"
  9. PRINT AT(10,31);"Nach dem Ausdruck wird das Programm ohne Warnung sofort beendet!"
  10. papier.drucken
  11. CLOSES 1
  12. CLOSEW #1
  13. END
  14. PROCEDURE papier.drucken        ! die eigentliche Druckroutine
  15.   s%=6                          ! Schleifeneinstieg
  16.   WHILE s%>5                    ! maximal 5 Seiten
  17.     PRINT AT(2,5);"Anzahl der Druckseiten (max. 5), Abbruch mit '0' : ";
  18.     INPUT x$
  19.     s%=VAL(x$)                  ! Eingabe in Zahl wandeln
  20.   WEND
  21.   IF s% THEN
  22.     CLR s3                      ! Schleifeneinstieg
  23.     WHILE s3%=0 OR s3%>25       ! maximal 25 Druckzeilen
  24.       PRINT AT(2,9);"Anzahl der Druckzeilen (max. 25): ";
  25.       INPUT x$
  26.       s3%=VAL(x$)               ! Eingabe in Zahl wandeln
  27.     WEND
  28.     OPEN "O",#2,"PAR:"          ! Drucker öffnen
  29.     PRINT #2,CHR$(27);"C";CHR$(0);CHR$(12);
  30.     PRINT #2,CHR$(27);"E";
  31.     FOR s1%=1 TO s%             ! Anzahl der Seiten
  32.       FOR s2%=1 TO s3%          ! Anzahl der Notenlinien je Seite
  33.         PRINT #2,CHR$(27);"3";CHR$(16); !   Zeilenabstand 16/216 Inch
  34.         FOR l%=1 TO 5           !   Anzahl der Linien
  35.           PRINT #2,SPACE$(7);STRING$(72,"_") !   Linie drucken
  36.         NEXT l%
  37.         PRINT #2,CHR$(27);CHR$(80); !   Zwischenraum
  38.         PRINT #2," "
  39.       NEXT s2%
  40.       PRINT #2,CHR$(12);        !   Formfeed
  41.     NEXT s1%
  42.     CLOSE #2
  43.   ENDIF
  44. RETURN
  45. PROCEDURE programmkopf
  46.   CLS
  47.   COLOR 2                       ! schwarze Box
  48.   PBOX 1,1,639,20
  49.   COLOR 0                       ! grau
  50.   PBOX 6,4,633,17
  51.   COLOR 4                       ! hellgrau
  52.   LINE 6,4,633,4
  53.   LINE 6,4,6,17
  54.   PRINT AT(2,2);SPACE$(78)
  55.   PCOLOR 5,0
  56.   PRINT AT(22,2);"Druckprogramm für Notenpapier"
  57.   PCOLOR 1,0
  58.   programmfuss
  59. RETURN
  60. > PROCEDURE programmfuss          ! Anweisungsboxen zeichnen
  61. COLOR 2                       ! schwarz
  62. PBOX 1,(27*8)-10,639,(32*8)   ! schwarze Box
  63. COLOR 0                       ! grau
  64. PBOX 6,(27*8)-7,633,(28*8)+4  ! graue Box
  65. PBOX 6,(29*8)+2,633,(32*8)-4  ! 2. graue Box
  66. COLOR 4                       ! hellgrau
  67. BOX 7,(27*8)-7,633,(32*8)-3
  68. LINE 7,(29*8)+2,633,(29*8)+2
  69. LINE 16,(29*8)-6,639-16,(29*8)-6
  70. LINE 16,(29*8)+5,639-16,(29*8)+5
  71. LINE 639-16,(29*8)-6,639-16,(26*8)+4  ! senkrechter Strich
  72. LINE 16,(29*8)+5,16,(31*8)+2  ! senkrechter Strich
  73. COLOR 2                       ! schwarz
  74. LINE 7,(32*8)-3,633,(32*8)-3  ! schwarze Linie
  75. LINE 633,(27*8)-7,633,(32*8)-3
  76. LINE 16,(27*8)-4,639-16,(27*8)-4
  77. LINE 16,(31*8)+2,639-16,(31*8)+2
  78. LINE 16,(29*8)-6,16,(26*8)+4  ! senkrechter Strich
  79. LINE 639-16,(29*8)+5,639-16,(31*8)+2    ! senkrechter Strich
  80. RETURN
  81. > PROCEDURE init
  82. breite%=640                   ! Screenbreite
  83. hoehe%=256                    ! Screenhöhe
  84. ebenen%=3                     ! 3 Bitplanes
  85. OPENS 1,0,0,breite%,hoehe%,ebenen%,&H8000
  86. OPENW #1,0,0,breite%,hoehe%,&H18,&H1800,1
  87. farben.setzen                 ! Farbpalette setzen
  88. LPOKE ADD(FindTask(0),184),WINDOW(1)! Requester auf GFA-Screen umlenken
  89. RETURN
  90. > PROCEDURE farben.setzen
  91. SETCOLOR 0,5,5,5              ! grau statt blau
  92. SETCOLOR 1,15,15,15           ! weiß bleibt
  93. SETCOLOR 2,0,0,0              ! schwarz erhalten
  94. SETCOLOR 3,15,5,0             ! rot bleibt
  95. SETCOLOR 4,10,10,10           ! hellgrau inverse Farbe im Filerequester
  96. SETCOLOR 5,15,15,0            ! gelb
  97. SETCOLOR 6,0,0,0              ! schwarz = Inverse Farbe im Filerequester
  98. RETURN
  99. REM
  100.